object TimeFramer: TTimeFramer Left = 0 Top = 0 Width = 419 Height = 261 TabOrder = 0 object Book: TPageControl Left = 0 Top = 0 Width = 419 Height = 261 ActivePage = tsDays Align = alClient Style = tsFlatButtons TabOrder = 0 object tsTime: TTabSheet Caption = 'Time' ImageIndex = 4 object lbMaskHours: TLabel Left = 40 Top = 156 Width = 31 Height = 13 Caption = 'Hours:' FocusControl = eMaskHours end object lbMaskMin: TLabel Left = 40 Top = 180 Width = 40 Height = 13 Caption = 'Minutes:' FocusControl = eMaskMin end object lbMaskSec: TLabel Left = 40 Top = 204 Width = 45 Height = 13 Caption = 'Seconds:' FocusControl = eMaskSec end object lbTimeFrom: TLabel Left = 40 Top = 92 Width = 23 Height = 13 Caption = 'From' end object lbTimeTo: TLabel Left = 200 Top = 92 Width = 9 Height = 13 Caption = 'to' end object rbRepeatTime: TRadioButton Left = 16 Top = 40 Width = 313 Height = 17 Caption = 'Repeat every' TabOrder = 0 OnClick = rbTimeTimeClick end object eRepeatTime: TXSpinEdit Left = 40 Top = 60 Width = 97 Height = 21 TabOrder = 1 Text = '1' MinValue = 1 MaxValue = 86400 Value = 1 Step = 1 end object cbRepeatTime: TComboBox Left = 144 Top = 60 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 2 TabOrder = 2 Text = 'hours' Items.Strings = ( 'seconds' 'minutes' 'hours') end object rbTimeTime: TRadioButton Left = 16 Top = 8 Width = 129 Height = 17 Caption = 'Event starts at' Checked = True TabOrder = 3 TabStop = True OnClick = rbTimeTimeClick end object dtTime: TDateTimePicker Left = 144 Top = 8 Width = 145 Height = 21 Date = 37495.489549803200000000 Time = 37495.489549803200000000 Kind = dtkTime TabOrder = 4 end object rbTimeMask: TRadioButton Left = 16 Top = 128 Width = 377 Height = 17 Caption = 'Use this Time Mask (Cron format):' TabOrder = 5 OnClick = rbTimeTimeClick end object eMaskHours: TEdit Left = 144 Top = 152 Width = 257 Height = 21 TabOrder = 6 Text = '*' end object eMaskMin: TEdit Left = 144 Top = 176 Width = 257 Height = 21 TabOrder = 7 Text = '0' end object eMaskSec: TEdit Left = 144 Top = 200 Width = 257 Height = 21 TabOrder = 8 Text = '0' end object dtTimeFrom: TDateTimePicker Left = 96 Top = 88 Width = 97 Height = 21 Date = 37495.817291099500000000 Time = 37495.817291099500000000 Kind = dtkTime TabOrder = 9 end object dtTimeTo: TDateTimePicker Left = 232 Top = 88 Width = 97 Height = 21 Date = 37495.817291099500000000 Time = 37495.817291099500000000 Kind = dtkTime TabOrder = 10 end end object tsHours: TTabSheet Caption = 'Hours' object lbHourFrom: TLabel Left = 40 Top = 100 Width = 23 Height = 13 Caption = 'From' end object lbHourTo: TLabel Left = 200 Top = 100 Width = 9 Height = 13 Caption = 'to' end object cbAllHours: TRadioButton Left = 8 Top = 8 Width = 385 Height = 17 Caption = 'All day long' Checked = True TabOrder = 0 TabStop = True OnClick = cbAllHoursClick end object cbWHours: TRadioButton Left = 8 Top = 32 Width = 393 Height = 17 Caption = 'Within working hours' TabOrder = 1 OnClick = cbAllHoursClick end object cbNWHours: TRadioButton Left = 8 Top = 56 Width = 385 Height = 17 Caption = 'Within non-working hour' TabOrder = 2 OnClick = cbAllHoursClick end object cbHourInterval: TRadioButton Left = 8 Top = 80 Width = 385 Height = 17 Caption = 'Within time interval:' TabOrder = 3 OnClick = cbAllHoursClick end object cbHourList: TRadioButton Left = 8 Top = 128 Width = 385 Height = 17 Caption = 'Hour list:' TabOrder = 4 OnClick = cbAllHoursClick end object eHourList: TEdit Left = 32 Top = 152 Width = 361 Height = 21 TabOrder = 5 end object dtHourFrom: TDateTimePicker Left = 96 Top = 96 Width = 97 Height = 21 Date = 37495.817291099500000000 Time = 37495.817291099500000000 Kind = dtkTime TabOrder = 6 end object dtHourTo: TDateTimePicker Left = 232 Top = 96 Width = 97 Height = 21 Date = 37495.817291099500000000 Time = 37495.817291099500000000 Kind = dtkTime TabOrder = 7 end end object tsDays: TTabSheet Caption = 'Days' ImageIndex = 1 object cbAllDays: TRadioButton Left = 8 Top = 8 Width = 385 Height = 17 Caption = 'Every day' Checked = True TabOrder = 0 TabStop = True OnClick = cbAllDaysClick end object cbWDays: TRadioButton Left = 8 Top = 32 Width = 385 Height = 17 Caption = 'Every working day' TabOrder = 1 OnClick = cbAllDaysClick end object cbNWDays: TRadioButton Left = 8 Top = 56 Width = 385 Height = 17 Caption = 'Every non-working day' TabOrder = 2 OnClick = cbAllDaysClick end object cbWeekDays: TRadioButton Left = 8 Top = 80 Width = 385 Height = 17 Caption = 'Week days:' TabOrder = 3 OnClick = cbAllDaysClick end object clbWeekDays: TCheckListBox Left = 24 Top = 104 Width = 369 Height = 60 Columns = 2 ItemHeight = 13 Items.Strings = ( 'Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday' 'Sunday') TabOrder = 4 end object cbDayList: TRadioButton Left = 8 Top = 176 Width = 121 Height = 17 Caption = 'Day list:' TabOrder = 5 OnClick = cbAllDaysClick end object eDayList: TEdit Left = 24 Top = 200 Width = 369 Height = 21 TabOrder = 6 end object cbDLType: TComboBox Left = 136 Top = 174 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 0 TabOrder = 7 Text = 'Month days' Items.Strings = ( 'Month days' 'Year days' 'vCalendar/iCalendar') end end object tsWeeks: TTabSheet Caption = 'Weeks' ImageIndex = 2 object cbAllWeeks: TRadioButton Left = 8 Top = 8 Width = 313 Height = 17 Caption = 'Every week' Checked = True TabOrder = 0 TabStop = True OnClick = cbAllWeeksClick end object cbSpecWeeks: TRadioButton Left = 8 Top = 32 Width = 337 Height = 17 Caption = 'Specific weeks of a month:' TabOrder = 1 OnClick = cbAllWeeksClick end object clbWeeks: TCheckListBox Left = 32 Top = 56 Width = 353 Height = 57 Columns = 2 ItemHeight = 13 Items.Strings = ( 'First' 'Second' 'Third' 'Fourth' 'Last' 'Preceding to last') TabOrder = 2 end object cbWeekList: TRadioButton Left = 8 Top = 120 Width = 169 Height = 17 Caption = 'List of weeks of a year:' TabOrder = 3 OnClick = cbAllWeeksClick end object eWeekList: TEdit Left = 32 Top = 144 Width = 353 Height = 21 TabOrder = 4 end end object tsMonths: TTabSheet Caption = 'Months' ImageIndex = 3 object cbAllMonths: TRadioButton Left = 8 Top = 8 Width = 281 Height = 17 Caption = 'Every month' Checked = True TabOrder = 0 TabStop = True OnClick = cbAllMonthsClick end object cbSpecMonths: TRadioButton Left = 8 Top = 32 Width = 353 Height = 17 Caption = 'Specific months:' TabOrder = 1 OnClick = cbAllMonthsClick end object clbMonths: TCheckListBox Left = 32 Top = 56 Width = 361 Height = 90 Columns = 2 ItemHeight = 13 Items.Strings = ( 'January' 'February' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December') TabOrder = 2 end end end end